home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / mus / midi / SoundPalette.lha / SoundPaletteInstall / Install_SoundPalette next >
Text File  |  1996-05-26  |  4KB  |  135 lines
  1. ;-------------------------------------------------
  2. ; HD Installation script for Musicline Editor 1.14
  3. ; Copyright © 1995 by Musicline.
  4. ; Written by Conny Cyreus.
  5. ;-------------------------------------------------
  6. ;$VER: Musicline Editor HDInstall 1.14 ()
  7.  
  8. ; Check kickversion.
  9. ;-------------------
  10.  
  11.   (if (< (/ (getversion) 65536) 37)
  12.    (abort "SoundPalette will only run under Kickstart 2.04 or above!")
  13.   )
  14.  
  15. ; Select destination drawer
  16. ;--------------------------
  17.  
  18.   (welcome)
  19.  
  20.     (set @default-dest (askdir (prompt "Please select a drive or drawer where\nSoundPalette should be installed.\nA drawer will be created there.")
  21.     (default @default-dest) (help "In the path you choose, a directory for SoundPalette will be created.")))
  22.  
  23.     (set @default-dest (tackon @default-dest "SoundPalette"))
  24.  
  25.  
  26. ; Copy SoundPalette files
  27. ;------------------------
  28.  
  29.   (working "Checking for main files")
  30.   (copyfiles (prompt "Install SoundPalette V1.0. main files")
  31.    (source "Main")
  32.    (dest @default-dest)
  33.    (pattern "#?")
  34.    (files)
  35.    (infos)
  36.    (optional fail)
  37.    (confirm)
  38.    (help @copyfiles-help)
  39.   )
  40.  
  41.  
  42.     (makedir (tackon @default-dest "Images"))
  43.     (copyfiles (prompt "Install SoundPalette images.")
  44.         (source "Images")
  45.         (dest (tackon @default-dest "Images"))
  46.         (all)
  47.         (optional fail force)
  48.         (confirm)
  49.         (help "These images are used by SoundPalettes requesters. They will be placed in their own directory inside the SoundPalette directory.")
  50.     )
  51.  
  52. ; Copy images icon
  53. ;--------------------
  54.   (set Destination @default-dest)
  55.   (copyfiles (source "Icons") (dest Destination) (pattern "Images.info") (files) (optional nofail) (help @copyfiles-help) )
  56.  
  57. ; Copy directory icon
  58. ;--------------------
  59.   (set Destination (substr @default-dest 0 (- (strlen @default-dest) 12)))
  60.   (set SoundPalette (substr @default-dest (- (strlen @default-dest) 12) 12))
  61.   (if (= SoundPalette "SoundPalette")
  62.    (copyfiles (source "Icons") (dest Destination) (pattern "SoundPalette.info") (files) (optional nofail) (help @copyfiles-help) )
  63.   )
  64.  
  65. ; Copy Audition files
  66. ;--------------------
  67.  
  68.   (working "Checking for audition files.")
  69.   (makedir (tackon @default-dest "Tunes"))
  70.   (if (= (exists "Tunes" (noreq)) 2)
  71.    (copyfiles (prompt "Install audition files.")
  72.     (source "Tunes")
  73.     (dest (tackon @default-dest "Tunes"))
  74.     (all)
  75.     (optional fail force)
  76.     (confirm)
  77.     (help @copyfiles-help)
  78.    )
  79.   )
  80.  
  81.   ; Copy tunes icon
  82.   ;--------------------
  83.   (set Destination @default-dest)
  84.   (copyfiles (source "Icons") (dest Destination) (pattern "Tunes.info") (files) (optional nofail) (help @copyfiles-help) )
  85.  
  86. ; Copy presets.
  87. ;--------------
  88.   (working "Installing presets.")
  89.   (makedir (tackon @default-dest "Presets"))
  90.   (if (= (exists "Presets" (noreq)) 2)
  91.       (copyfiles (prompt "Installing presets.")
  92.           (source "Presets")
  93.           (dest (tackon @default-dest "Presets"))
  94.           (all)
  95.           (confirm)
  96.           (help "These are some 05R/W presets that form part of the database which comes with this package. If you choose not to install them, you will not be able to use the pre-made database.")
  97.       )
  98.   )
  99.  
  100.       ; Copy images icon
  101.       ;--------------------
  102.       (set Destination @default-dest)
  103.       (copyfiles (source "Icons") (dest Destination) (pattern "Presets.info") (files) (optional nofail) (help @copyfiles-help) )
  104.  
  105. ; Copy banks
  106. ;-----------
  107.     (working "Searching for 05R/W banks.")
  108.     (makedir (tackon @default-dest "Banks"))
  109.     (if (= (exists "Banks" (noreq)) 2)
  110.         (copyfiles (prompt "Installing the banks.")
  111.             (source "Banks")
  112.             (dest (tackon @default-dest "Banks"))
  113.             (all)
  114.             (help "These are some 05R/W program banks for you to play around with. Each contains a full set of 100 A-Bank sounds.")
  115.             (confirm)
  116.          )
  117.      )
  118.  
  119.          ; Copy images icon
  120.          ;--------------------
  121.          (set Destination @default-dest)
  122.          (copyfiles (source "Icons") (dest Destination) (pattern "Banks.info") (files) (optional nofail) (help @copyfiles-help) )
  123.  
  124. ; Copy configuration.
  125. ;--------------------
  126.  
  127.   (working "Copying configuration to S:")
  128.   (copyfiles (prompt "Copying default configuration.")
  129.     (source "Config")
  130.     (dest "S:")
  131.     (all)
  132.     (help @copyfiles-help)
  133.   )                             
  134.  
  135.